home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 35
/
035.d81
/
moving walls
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
3KB
|
135 lines
1 rem moving walls
2 poke53272,(peek(53272)and240)or14
10 poke53280,4:poke53281,1
15 joy=56320:s=54272
20 print"[147]";
30 fort=1to21:print"[151] ";:next
40 fort=1to20:print"[157] ";:next
50 fort=1to20:print"[157][157] ";:next
60 fort=1to20:print"[145][157] ";:next
65 print"[197][216][201][212]"
68 print"";
70 forrt=1to4:print"[149][191][191][191][191]":next
80 print"[149][160][160][160][160][160][160][157][157][157][157][157][157]";
90 fort=1to10:printt,"[157][157][160][157][157][157][157][157][157]";:next
92 print"";
93 fort=1to11:print"[160][157]";:next
95 print"[160][160][160][160][160][160]";
100 print"[160][157][160][157][160][157][160][157][160][157][160][157][160][157][160][157][160]";
110 x=3:y=3:v=1130
120 forpl=1to10
125 poke198,0
130 gosub1000
140 poke1024+y*40+x,95:poke55296+y*40+x,6:ifx=19andy=19then2000
150 print"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][205][207][214][197]"
152 print"[157][157][157][157][157][157][157][157][157][157][144][208]ress '[209]'"
154 print"[157][157][157][157][157][157][157][157][157][144]to quit"
160 geta$:j%=peek(joy)
162 ifa$=""andj%=127then160
163 ifa$="[133]"thenrun
165 ifa$=" "orj%=111thenifsp<>2thensp=1:gosub1000
170 ifa$=""orj%=119thenifpeek(1024+y*40+x+2)=160then160
175 ifa$=""orj%=119thenpoke1024+x+y*40,32:x=x+4:goto210
180 ifa$="[157]"orj%=123thenifpeek(1024+y*40+x-2)=160then160
185 ifa$="[157]"orj%=123thenpoke1024+x+y*40,32:x=x-4:goto210
190 ifa$=""orj%=125thenifpeek(1024+(y+2)*40+x)=160then160
195 ifa$=""orj%=125thenpoke1024+x+y*40,32:y=y+4:goto210
200 ifa$="[145]"orj%=126thenifpeek(1024+(y-2)*40+x)=160then160
205 ifa$="[145]"orj%=126thenpoke1024+x+y*40,32:y=y-4:goto210
206 ifa$="q"ora$="[209]"thengosub 12000
207 goto160
210 ifpl<11thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54272+1,3
215 v=v+40
230 next:ifx=19andy=19then2000
240 sh=1:gosub3000:gosub11000:fordl=1to500:next: rem die
242 sys51459:poke53272,(peek(53272)and240)or14
250 print"[147][208]ress [211][208][193][195][197][146] to [208]lay [193]gain."
252 print"[208]ress [209][146] to quit."
260 poke198,0:wait198,1:geta$
262 ifa$=" "thenrun
264 ifa$<>"q"anda$<>"[209]"then260
270 goto5000
999 :
1000 print"[144]";
1010 fort=1to4:forr=1to4
1020 print"[146][145][157] [145][157] [145][157] [157][157][157][157][157][157][157] [157] [157] [157] [145][145][145][145][145][145]";:next
1030 print:print"";:next
1035 ifsp=1thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54273,3:v=v+40:pl=pl+2
1037 ifsp=1thenpokev,224:pokev+1,224:pokev+54272,3:pokev+54273,3:v=v+40
1039 ifsp=1thensp=2:ifpl>16then240
1040 print"";
1050 fort=1to4:forr=1to4
1060 a=int(rnd(ti)*4)+1
1070 onagosub1100,1200,1300,1400
1080 next
1090 print:print"";:next:return
1100 print"[145][157] [145][157] [145][157] ";:return
1200 print" [145][145][145][157][157]";:return
1300 print"[157] [145][145][145]";:return
1400 print"[157] [157] [157] [145][145][145][145][145][145]";:return
1999 :
2000 :
2050 sh=0:gosub3000:gosub10000: rem win
2060 goto242
3000 rem plot shape
3010 poke249,224:poke250,204
3020 poke251,0:poke252,64
3030 poke253,0:poke254,0
3040 poke255,sh
3050 sys51462:sys51459:poke53272,(peek(53272)and240)or14
3060 return
3070 :
5000 rem return to ls
5010 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
5020 ifer<>63thenprint"[147]":end
5025 poke53272,21:poke55,.:poke56,160
5030 load"hello connect",8
10000 rem win sound
10010 forag=1to2
10011 fordl=1to100:next
10012 poke s+1,14
10020 poke s+5,3
10030 poke s+6,240
10040 poke s+24,15
10050 poke s+4,17
10060 ford=6to10
10070 ford1=1to12stepsin(d)
10080 pokes+1,4*d1:pokes+4,17
10090 next
10100 nextd
10110 poke s+4,16
10120 fordl=1to10:next
10150 poke s+1,14
10160 poke s+5,3
10170 poke s+6,240
10180 poke s+24,15
10190 poke s+4,17
10200 ford=6to10
10210 ford1=1to12steplog(d)
10220 pokes+1,4*d1:pokes+4,17
10230 next
10240 nextd
10250 poke s+4,16
10300 next ag
10310 return
10320 :
11000 rem lose sound
11005 forag=1to3
11010 poke s+1,14
11020 poke s+5,3
11030 poke s+6,255-15
11040 poke s+24,15
11050 poke s+4,17
11060 ford=11to110step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17:next
11070 poke s+4,16
11080 next ag
11090 return
12000 rem quit?
12010 print" [193]re you sure you want to quit ([217]/[206])?[144]"
12020 poke198,0:wait198,1:geta$
12030 ifa$="y"ora$="[217]"then5000
12040 ifa$="n"ora$="[206]"then12060
12050 goto12020
12060 print" ";
12070 return